home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / ace_gpl_release / submods / listbox / test.b < prev   
Encoding:
Text File  |  1996-08-28  |  496 b   |  19 lines
  1. #include <SUBmods/ListBox.h>
  2.  
  3. CONST MAXITEMS = 10
  4.  
  5. DIM STRING theItems(MAXITEMS) SIZE LISTBOX_ITEM_STRINGSIZE
  6. FOR i=1 TO MAXITEMS:READ theItems(i):NEXT
  7. DATA "This is the first string"
  8. DATA "And this is the second one"
  9. DATA "Three"
  10. DATA "Four I think"
  11. DATA "Five pigs in a ..."
  12. DATA "Six salmons in a salmon box"
  13. DATA "Seven of what?"
  14. DATA "Eight and I'm tired"
  15. DATA "Nine time for bed"
  16. DATA "Ten strings this is the last one"
  17. PRINT ListBox(@theItems, MAXITEMS, "String List", "Select a string")
  18.  
  19.